home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 66
/
64er_Magazin_Sonderheft_66_19xx_Markt__Technik_de_Side_A.d64
/
harte dollars
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
14KB
|
327 lines
0 rem *** harte dollars ***
1 rem (c) + (e) by parasoft 01.86
2 rem programmiert von juergen braun
3 rem grafische gestaltung, anleitung
4 rem und beschreibung norbert braun
5 rem das programm basiert auf einer
6 rem grundidde des gesellschafts-
7 rem spiels 'dallas' der firma noris,
8 rem waldstr. 38, 8510 fuerth.
9 rem *** harte dollars ***
10 poke51,0:poke52,128:poke55,0:poke56,128:clr:gosub4460:v=53248:pokev+21,0
20 si=54272:fl=si:fh=si+1:tl=si+2:th=si+3:w=si+4:a1=si+5:h=si+6:l=si+24
30 fora=sitosi+24:pokea,0:next:pokel,15
40 dimk$(26),ko%(5,4),f$(4),k%(25),ek$(24),c%(19),n$(4),do(4),sp%(4),sx%(21)
50 dimsy%(21),wu$(6),bi%(5,4),ba%(21),kw%(24),ek%(24)
60 k$(0)="@hab[157][157][157][157]fikg[157][157][157][157]cjde":k$(1)="[150]@lmb[157][157][157][157]fnog[157][157][157][157]cpqe"
70 k$(2)="[158]@+,b[157][157][157][157]f-.g[157][157][157][157]/012":k$(3)="[158]@34b[157][157][157][157]f56g[157][157][157][157](dd)"
80 k$(4)="[158]@78b[157][157][157][157]f9:g[157][157][157][157]/012":k$(5)="[153]rstu[157][157][157][157]vwxy[157][157][157][157]]z[\"
90 k$(6)="[153]rstu[157][157][157][157]vwxy[157][157][157][157]^z[\":k$(7)="[153]rstu[157][157][157][157]vwxy[157][157][157][157][161]z[\"
100 k$(8)="[153]rstu[157][157][157][157]vwxy[157][157][157][157]_z[\":k$(9)=";<=>[157][157][157][157]?[192][193][194][157][157][157][157]^z[\"
110 k$(10)=";[195][196]>[157][157][157][157]?[197][198][194][157][157][157][157]_z[\":k$(11)=";[199][200]>[157][157][157][157]?[201][202][194][157][157][157][157]!z[\"
120 :
130 k$(12)="[203][195][196][204][157][157][157][157][205][206][207][208][157][157][157][157]#z[\":k$(13)="@78b[157][157][157][157]f9:g[157][157][157][157][209]z$e"
140 k$(14)="@78b[157][157][157][157]f9:g[157][157][157][157]]z%&":k$(15)="@78b[157][157][157][157]f9:g[157][157][157][157]^z%&"
150 k$(16)="@78b[157][157][157][157]f9:g[157][157][157][157][209]z%&":k$(17)="@+,b[157][157][157][157]f-.g[157][157][157][157][209]z$e"
160 k$(18)="@+,b[157][157][157][157]f-.g[157][157][157][157]]z%&":k$(19)="@+,b[157][157][157][157]f-.g[157][157][157][157]^z%&"
170 k$(20)="@+,b[157][157][157][157]f-.g[157][157][157][157][209]z%&":k$(21)="@34b[157][157][157][157]f56g[157][157][157][157]]z%&"
180 k$(22)="@34b[157][157][157][157]f56g[157][157][157][157]^z%&":k$(23)="@34b[157][157][157][157]f56g[157][157][157][157]_z%&"
190 k$(24)="@34b[157][157][157][157]f56g[157][157][157][157]]z[\":k$(25)="[162][163][164][165][157][157][157][157][166][167][168][169][157][157][157][157][170][171][172][173]"
200 k$(26)="[149][210][211][221][212][157][157][157][157][213][214][215][216][157][157][157][157][217][218][220][219]"
210 wu$(1)=" [157][157][157] [209] [157][157][157] ":wu$(2)=" [157][157][157][209] [209][157][157][157] "
220 wu$(3)="[209] [157][157][157] [209] [157][157][157] [209]":wu$(4)="[209] [209][157][157][157] [157][157][157][209] [209]"
230 wu$(5)="[209] [209][157][157][157] [209] [157][157][157][209] [209]":wu$(6)="[209] [209][157][157][157][209] [209][157][157][157][209] [209]"
240 f$(0)="[129]":f$(1)="":f$(2)="":f$(3)="[158]":f$(4)="[154]"
250 k%(13)=2:k%(14)=2:k%(15)=1:k%(16)=1:k%(17)=2:k%(18)=2:k%(19)=1:k%(20)=1
260 k%(21)=2:k%(22)=2:k%(23)=1:k%(24)=1:k%(25)=2
270 poke56576,(peek(56576)and252)or1
280 poke56578,peek(56578)or3
290 poke53272,(peek(53272)and15)or0
300 poke648,128:gosub1880:gosub4470:gosub4500:poke2,111
310 fora=828to828+107:readq:pokea,q:next
320 fora=33792to33792+62:readq:pokea,q:next
330 fora=0to21:readq:sx%(a)=q:readq:sy%(a)=q:next
340 fora=13to24:readq:kw%(a)=q:next
350 fora=0to24:ek%(a)=1:next
360 fory=1to4:forx=1to5
370 v%=rnd(0)*13+13:k%(v%)=k%(v%)-1
380 ifk%(v%)<0then370
390 ko%(x,y)=v%
400 nextx,y
410 ek$(0)="du kannst land kaufen. 5000$/area":c%(0)=5000
420 ek$(1)="du kannst land kaufen. 2000$/area":c%(1)=2000
430 ek$(2)="du kannst land kaufen. 1000$/area":c%(2)=1000
440 ek$(3)="aus anlass der 200-jahr-feier des staa- tes texas wird ein gratis"
450 ek$(3)=ek$(3)+"area ver- schenkt. bitte wuerfeln sie.":c%(3)=0
460 ek$(4)="das gouvernment von texas kauft oel, farmland und rinder zum "
470 ek$(4)=ek$(4)+"tageskurs."
480 ek$(5)="das gouvernment von texas kauft rinder zum tageskurs."
490 ek$(6)="das gouvernment von texas kauft farmlandzum tageskurs."
500 ek$(7)="das gouvernment von texas kauft oel zum tageskurs."
510 ek$(8)="[158]konkurs!!! du must deinen gesamten be- sitz (oel, rinder, farm"
520 ek$(8)=ek$(8)+"land) zum tages- kurs verkaufen."
530 ek$(9)="[158]steuerschulden! zwingen dich zum verkaufdeiner rinder zum tages"
540 ek$(9)=ek$(9)+"kurs."
550 ek$(10)="[158]pech beim pokern! dein farmland muss zumtageskurs verkauft"
560 ek$(10)=ek$(10)+" werden."
570 ek$(11)="[158]schlechte geschaefte! geldschwierigkei- ten zwingen dich zum "
580 ek$(11)=ek$(11)+"verkauf deiner oelquellen."
590 ek$(12)="!!betrug!! dein partner hat dich um dei-nen gesamten besitz geb"
600 ek$(12)=ek$(12)+"racht. dir bleibtnur noch das bargeld."
610 ek$(13)="trockenzeit! deine rinderherden gehen verloren."
620 ek$(14)="durch eine naturkatastrophe wurde dein farmland zerstoert."
630 ek$(15)="ein bohrlochbrand hat dein gesamtes oel vernichtet."
640 ek$(16)="[158]rinderseuche! du musst 10$ pro rind fuerarznei und tierarzt be"
650 ek$(16)=ek$(16)+"zahlen.":c%(16)=-10
660 ek$(17)="[158]ein hurrikan hat dein farmland verwues- tet. aufraeumungsarbeiten"
670 ek$(17)=ek$(17)+" kosten 10$ prohektar.":c%(17)=-10
680 ek$(18)="[158]die rohoelaufbereitung kostet dich 5$ pro barrel.":c%(18)=-5
690 ek$(19)="!! g o l d f u n d !! in der wueste. diebank zahlt pro wuesten"
700 ek$(19)=ek$(19)+"area 100000$.":c%(19)=10000
710 ek$(20)="010010005":ek$(21)="020020010"
720 ek$(22)="030030015":ek$(23)="050050025"
730 ek$(24)="100100050"
740 poke53280,0:poke53281,0
750 print:print"[147]"tab(7)"druecke feuer zum start"
760 ifpeek(56321)=239thenfe=239:jd=253:pe=56321:ru=255:ju=254:goto800
770 ifpeek(56320)=111thenfe=111:jd=125:pe=56320:ru=127:ju=126:goto800
780 goto760
790 forz=1to100:next:j=peek(pe):ifj=juorj<>jdgoto810
800 printtab(7)"[145]anleitung start ":an=1:goto790
810 ifj=juthenprinttab(7)"[145]anleitung start ":an=0
820 ifj=fegoto840
830 goto790
840 ifan=0then1650
850 print"[147]"tab(15)"anleitung:":printtab(4)"$$$ h a r t e d o l l a r s $$$"
860 print"ziel des spiels ist, soviel geld wie "
870 print"moeglich durch guenstigen kauf und ge-"
880 print"winnbringenden verkauf von rinderherden,"
890 print"oelquellen und farmland zu erwirtschaf-"
900 print"ten. eine zusaetzliche einnahmequelle"
910 print"sind die pachtgelder fuer ranchbesitzer."
920 print"je oefter man rinderherden, oelquellen"
930 print"und farmland kauft und wieder verkauft,"
940 print"desto schneller waechst der reichtum.":poke198,0:wait198,1
950 print"[147]"tab(14)"spielverlauf:"
960 print"nach dem wuerfeln zieht jeder spieler"
970 print"mit seiner spielfigur in pfeilrichtung"
980 print"auf den randfeldern. auf diesem rundkurs"
990 print"kann der spieler auf 4 verschiedene fel-"
1000 print"dertypen gelangen."
1010 print"1. ereignisfeld:";:printtab(18)k$(1)
1020 print"der computer waehlt zufaellig aus dem"
1030 print"stapel der ereigniskarten eine aus."
1040 print"diese kann entweder eine gute informa-"
1050 print"tion oder eine sehr schlechte tragen.":poke198,0:wait198,1
1060 print"[147]ausserdem werden neue boersennachrichten"
1070 print"aus dem stapel gezogen, die den kurs"
1080 print"fuer an- und verkauf von guetern fest-"
1090 print"legen."
1100 print"2. landkauffelder:"tab(19)k$(6)
1110 print"hier besteht die moeglichkeit, zu dem"
1120 print"angegebenen betrag land zu kaufen."
1130 print"land, das frei oder im besitz eines"
1140 print"mitspielers ist, geht in den eigenen"
1150 print"besitz ueber. das betreffende land wird"
1160 print"mit dem zahlen-buchstaben-wuerfel ermit-"
1170 print"telt.":poke198,0:wait198,1
1180 print"[147]3. subventions-felder:"
1190 printtab(5)k$(2)tab(10)"[145][146]rinder"
1200 printtab(5)k$(3)tab(10)"[145][146]oel"
1210 printtab(5)k$(4)tab(10)"[145][146]farmland"
1220 print"der spieler, der auf eines der drei"
1230 print"felder gelangt, erhaelt von der bank den"
1240 print"betrag ausbezahlt, der sich aus der auf-"
1250 print"gedruckten subvention und dem entspre-"
1260 print"chenden besitz errechnet.":poke198,0:wait198,1
1270 print"[147]bsp.: ein spieler hat insgesamt 2500 "
1280 print"rinder (aus mehreren landstuecken)."
1290 print"er erhaelt auf dem subvent.feld 'rinder'"
1300 print"2500 * 10$ = 25000$."
1310 print"4. ranchfelder:"tab(17)"[129]"k$(10)
1320 print"a. das feld ist noch frei: der spieler,"
1330 print"der auf dieses feld gelangt, kann -muss"
1340 print"nicht- das ranchfeld zum aufgedruckten"
1350 print"preis kaufen. als besitzer kann er nun"
1360 print"von mitspielern, die auf sein ranchfeld"
1370 print"ziehen, pacht verlangen.":poke198,0:wait198,1
1380 print"[147]hinweis: wer alle felder einer ranch"
1390 print"besitzt, darf doppelte pacht kassieren."
1400 print"b. das feld ist im besitz eines anderen"
1410 print"spielers: in diesem falle muss an den"
1420 print"besitzer pacht bezahlt werden, die sich"
1430 print"wie folgt errechnet: 10% vom kaufpreis"
1440 print"des ranchfeldes + 2000$ pro landstueck."
1450 print"bsp.: spieler b gelangt auf ein"
1460 print"**-ranch-feld von spieler a. spieler a"
1470 print"besitzt ausserdem 4 landstuecke (ohne "
1480 print"wueste). das ergibt folgende pacht:":poke198,0:wait198,1
1490 print"[147]10% von 40000$ = 4000$"
1500 print"4 x 2000$ = 8000$"
1510 printtab(16)"[197][197][197][197][197][197]":printtab(16)"12000$"
1520 print"5. spielende:"
1530 print"ist ein spieler nicht mehr zahlungsfae-"
1540 print"hig, werden seine laender fuer 20000$"
1550 print"(einheitspreis) von der bank gekauft;"
1560 print"ranches zum urspruenglichen kaufpreis."
1570 print"der spieler, der keinen besitz und kein"
1580 print"geld mehr hat, scheidet aus.":poke198,0:wait198,1
1590 print"[147]zudem besteht die moeglichkeit die"
1600 print"spielzeit vorzugeben. der computer"
1610 print"unterbricht nach ablauf der zeit das"
1620 print"spiel und zeigt den aktuellen spielstand"
1630 print"an."
1640 print"und nun viel spass und gute geschaefte.":poke198,0:wait198,1
1650 print"[147]wieviele spieler wollen mitspielen? (2-4)"
1660 geta$:ifval(a$)<2orval(a$)>4then1660
1670 print"geben sie bitte ihre namen ein:":b=val(a$)
1680 fora=1tob:printa"[157].spieler";:inputn$(a):do(a)=600000:next:sa=b
1690 print"wie lange wollen sie spielen? (0.5 - 2 stunden)"
1700 print"geben sie bitte so ein 'ssmmss'!"
1710 inputze$:iflen(ze$)<>6then1710
1720 ze=val(ze$):ifze<3000then1710
1730 ifze>20000then1710
1740 ti$="000000":gosub4460:gosub2110:gosub2250:zu%=rnd(1)*5+20:gosub2340
1750 ek%(zu%)=0:gosub4470:fora=33784to33787:pokea,16:next
1760 pokev+39,5:pokev+40,2:pokev+41,7:pokev+42,14
1770 pokev,sx%(0):pokev+1,sy%(0):pokev+2,sx%(0)-7:pokev+3,sy%(0)
1780 pokev+4,sx%(0)-14:pokev+5,sy%(0):pokev+6,sx%(0)-21:pokev+7,sy%(0)
1790 pokev+28,15:pokev+37,1:pokev+21,2^sa-1:sys828
1800 forb=1tosa:sys882:ifp%(b)=1then1840
1810 gosub2250:gosub2360:sys828:gosub2380:gosub2420:gosub2470:gosub2540
1820 gosub4430
1830 ifdo(b)<0thengosub3770
1840 z=0:fora=1to4:ifp%(a)=0thenz=z+1
1850 nexta:ifz=1then3940
1860 nextb:ifval(ti$)>zethen3940
1870 goto1800
1880 poke53280,15:poke53281,15
1890 print"[147][129][223][223] [223] [223][223][223] [223] [223][223][223] [223] [223][223] [223][223] [223] [223][223][223] [223] [223][223][223] [223] [223][223]";
1900 print"{$7f} {$7f}{$7f}{$7f} {$7f}{$7f}{$7f} {$7f}{$7f}{$7f} {$7f}{$7f} {$7f}{$7f}{$7f} {$7f}{$7f}{$7f} {$7f}{$7f}{$7f} {$7f}";
1910 print" {$7f} {$7f} {$7f}{$7f}{$7f} {$7f} {$7f}{$7f}{$7f} {$7f} {$7f}{$7f} {$7f}{$7f} {$7f} {$7f}{$7f}{$7f} {$7f} {$7f}{$7f}{$7f} {$7f} {$7f}
1920 [153]"(NULL) (NULL) (NULL)(NULL)(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)(NULL)(NULL) (NULL) (NULL)";
1930 [153]"(NULL) (NULL)"[166]34)"(NULL) (NULL) (NULL)(NULL)"[166]6)"(NULL) (NULL) (NULL)(NULL) (NULL)(NULL)(NULL) (NULL)(NULL)(NULL) (NULL)(NULL)(NULL)"[166]6)"for(NULL)(NULL)
1940 print"[223]"spc(8)"[255] [255] [255] [255] [255] [255] [255] [255]"spc(10)"[129][223]";
1950 print" [223][223]"spc(6)"[255][255][255][255] [255] [255] [255][255][255] [255] [255][255] "spc(6)"[129][223][223]
1960 [153]"(NULL)(NULL)(NULL)"[166]6)"(NULL) (NULL) (NULL)(NULL)(NULL)(NULL) (NULL) (NULL) (NULL) (NULL)"[166]8)"for(NULL)(NULL)(NULL)";
1970 [153]"(NULL) (NULL)"[166]6)"(NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL)(NULL)(NULL)"[166]6)"for(NULL) (NULL)";
1980 [153]"(NULL)(NULL)(NULL)"[166]34)"(NULL)(NULL)(NULL)(NULL) (NULL)"[166]34)"(NULL) (NULL)";
1990 [153]" (NULL) poke(NULL)(NULL)(NULL) (NULL)(NULL) (NULL) (NULL) (NULL)(NULL) (NULL)(NULL)(NULL) (NULL)(NULL)(NULL) for(NULL)
2000 print"[223] [223] [151][255][255] [255] [255][255] [255] [255] [255] [255][255] [255] [255][255] [255] [255][255] [129][223] [223]";
2010 print"[223][223][223] [151][255][255] [255] [255][255] [255] [255] [255] [255][255] [255] [255][255][255] [255][255] [129][223][223][223]";
2020 print"[223] [223] [151][255][255] [255] [255][255] [255] [255][255][255] [255][255][255] [255][255][255][255] [255][255][255] [255][255] [129][223] [223]";
2030 print"[223][223][223] [151][255][255][255] [255][255] [255][255][255] [255][255][255] [255][255] [255] [255][255] [255] [255][255][255] [129][223][223][223]";
2040 print" [223][223]"spc(34)"[223][223]
2050 [153]"(NULL)"[166]38)"(NULL) (NULL)(NULL) wait(c) + (e) by parasoft 12.85 for(NULL)(NULL)
2060 print"[223] [223]"spc(34)"[223] [223][223] [223] [223][223][223][223][223] [223][223][223][223][223] [223][223][223][223][223][223][223][223] [223][223][223][223][223] [223][223][223][223][223] [223] [223]";
2070 print" [223] [223] [223][223][223] [223] [223][223][223] [223] [223][223] [223][223] [223] [223][223][223] [223] [223][223][223] [223] [223]
2080 [153]"(NULL) (NULL)(NULL)(NULL) (NULL)(NULL)(NULL) (NULL)(NULL)(NULL) (NULL)(NULL) (NULL)(NULL)(NULL) (NULL)(NULL)(NULL) (NULL)(NULL)(NULL) (NULL)";
2090 [153]"(NULL)(NULL) (NULL) (NULL)(NULL)(NULL) (NULL) (NULL)(NULL)(NULL) (NULL) (NULL)(NULL) (NULL)(NULL) (NULL) (NULL)(NULL)(NULL) (NULL) (NULL)(NULL)(NULL) (NULL) (NULL)";
2100 [151]33767,95[170]128:[151]56295,8:[142]
2110 [153][199](147);
2120 [153][166]7)"1 2 3 4 5"[166]7)"f:"
2130 [153][166]31)"r:"
2140 [153][163]2)k$(3)"onon"k$(1)"ononfor"k$(11)"onon"k$(11)"onon"k$(11)"onon"k$(7);
2150 [153]"onon"k$(4)"waitonon o:cmdcmdcmdwaitortantantan=tantantan^cmdcmdcmdcmdcmdcmdcmdcmdcmd(NULL) (NULL) (NULL)"
2160 [153][163]2)k$(6)[166]20)"onon"k$(1)"ononwait(NULL) (NULL) (NULL)cmdcmdcmdcmdcmdcmdcmdcmdcmd(NULL) (NULL) (NULL)";
2170 [153]"cmdcmdcmdcmdcmdcmdcmdcmdcmd/tantantan>tantantanexp"
2180 [153][163]2)"for"k$(10)[166]20)"onon"k$(12)
2190 [153][163]2)"for"k$(10)[166]20)"onon"k$(12)
2200 [153][163]2)k$(1)[166]20)"onon"k$(8)
2210 [153][163]2)k$(2)"onon"k$(5)"ononfor"k$(9)"onon"k$(9)"onon"k$(9)"onon"k$(1);
2220 [153]"onon"k$(0):[153]"acmdbcmdccmdd"
2230 [129]y[178]1[164]4:[153][163]6);:[129]x[178]1[164]5:[153]k$(26)"onon";:[130]:[153]"":[130]
2240 [142]
2250 [153]""[163]31)"spieler1print":[153][163]30)" on"
2260 [153][163]30)[196](do(1))"$"
2270 [153]""[163]31)"spieler2print":[153][163]30)" on"
2280 [153][163]30)[196](do(2))"$"
2290 [153]""[163]31)"sysspieler3print":[153][163]30)" on"
2300 [153][163]30)[196](do(3))"$"
2310 [153]""[163]31)"contspieler4print":[153][163]30)" on"
2320 [153][163]30)[196](do(4))"$"
2330 [142]
2340 fa[178][197]([200](ek$(zu%),3)):ri[178][197]([202](ek$(zu%),4,3))
2350 oe[178][197]([201](ek$(zu%),3))
2360 [153]""[163]33)fa"cmd$ cmdcmd"
2370 [153][163]33)ri"cmd$ cmdcmd":[153][163]33)oe"cmd$ cmdcmd":[142]
2380 y[178]31:x[178]5[170]b[172]3
2390 [141]4480:[153]"stopspieler":[141]4480:[129]z[178]1[164]60:[130]:[153]"spieler"
2400 j[178][194](pe):[139]j[178]ru[167]2390
2410 [142]
2420 zz[178]0:wn%[178][187](1)[172]6[170]1:x[178]4:y[178]31
2430 [129]z[178]1[164][187](1)[172]6[170]8:[141]4480:[153]f$(0)wu$([187](1)[172]6[170]1)
2440 zz[178]zz[170]25:[141]4200:[130]z
2450 [141]4480:[153]wu$(wn%):[129]z[178]1[164]750:[130]
2460 [142]
2470 ap%[178]sp%(b)[170]1:sp%(b)[178]sp%(b)[170]wn%
2480 [129]a[178]ap%[164]sp%(b)
2490 [139]a[177]21[167][151]v[170]b[172]2[171]2,sx%(a[171]22)[171](b[171]1)[172]7:[151]v[170]b[172]2[171]1,sy%(a[171]22):[137]2510
2500 [151]v[170]b[172]2[171]2,sx%(a)[171](b[171]1)[172]7:[151]v[170]b[172]2[171]1,sy%(a)
2510 [141]4240:[130]a
2520 [139]sp%(b)[177]21[167]sp%(b)[178]sp%(b)[171]22
2530 [142]
2540 [139]sp%(b)[178]0[167]x[178]21:y[178]2:[141]4480:[153]"startfeld - ruhepause!":[142]
2550 [139]sp%(b)[178]1[176]sp%(b)[178]7[176]sp%(b)[178]12[176]sp%(b)[178]18[167]2960
2560 [139]sp%(b)[178]5[176]sp%(b)[178]10[176]sp%(b)[178]16[176]sp%(b)[178]21[167]2760
2570 [139]sp%(b)[178]6[176]sp%(b)[178]11[176]sp%(b)[178]17[167]2870
2580 x[178]21:y[178]2:[139]ba%(sp%(b))[178]b[167][141]4480:[153]"eigene ranch betreten":[142]
2590 vv%[178]sp%(b):[139]vv%[177]1[175]vv%[179]5[167]kp[178]20000
2600 [139]vv%[177]7[175]vv%[179]10[167]kp[178]40000
2610 [139]vv%[177]12[175]vv%[179]16[167]kp[178]60000
2620 [139]vv%[177]18[175]vv%[179]21[167]kp[178]80000
2630 [139]ba%(vv%)[179][177]0[167]2670
2640 [139]kp[177]do(b)[167]x[178]21:y[178]2:[141]4480:[153]"zu wenig kapital zum kauf!":[142]
2650 [141]4480:[153]"wollen sie fuer"kp"$ kaufen?":[141]4280:[139]an[178]0[167][142]
2660 do(b)[178]do(b)[171]kp:ba%(sp%(b))[178]b:[141]4370:[142]
2670 kp[178]kp[173]10:a[178]1:zz[178]0:[141]4480:[153]"fremde ranch betreten,"
2680 [139]kp[178]2000[175]ba%(2)[178]ba%(3)[175]ba%(3)[178]ba%(4)[167]a[178]2
2690 [139]kp[178]4000[175]ba%(8)[178]ba%(9)[167]a[178]2
2700 [139]kp[178]6000[175]ba%(13)[178]ba%(14)[175]ba%(14)[178]ba%(15)[167]a[178]2
2710 [139]kp[178]8000[175]ba%(19)[178]ba%(20)[167]a[178]2
2720 z[178]ba%(vv%):[129]y[178]1[164]4:[129]x[178]1[164]5
2730 [139]bi%(x,y)[178]z[175]ko%(x,y)[179][177]25[167]zz[178]zz[170]1
2740 [130]x,y:kp[178](kp[170]zz[172]2000)[172]a:[153]"die pacht betraegt"kp"$"
2750 do(b)[178]do(b)[171]kp:do(z)[178]do(z)[170]kp:[142]
2760 [139]sp%(b)[178]5[176]sp%(b)[178]10[167]kp[178]2000[172]sp%(b)
2770 [139]sp%(b)[178]16[176]sp%(b)[178]21[167]kp[178]2000[172](sp%(b)[171]1)
2780 [139]kp[177]do(b)[167]x[178]21:y[178]2:[141]4480:[153]"zu wenig kapital zum kauf!":[142]
2790 x[178]21:y[178]2:[141]4480:[153]"wollen sie fuer"kp"$ land kaufen?"
2800 [141]4280:[139]an[178]0[167][142]
2810 [141]4330:vv%[178]bi%(wn%,wa%):[139]vv%[178]b[167]2810
2820 [139]vv%[179][177]0[167]do(vv%)[178]do(vv%)[170]kp:bi%(wn%,wa%)[178]b
2830 do(b)[178]do(b)[171]kp:bi%(wn%,wa%)[178]b:[158]882:[141]2250:x[178]2[170]wa%[172]3:y[178]2[170]wn%[172]4
2840 [141]4480:[153]f$(b)k$(ko%(wn%,wa%)):[158]828
2850 [139]ko%(wn%,wa%)[178]25[167][141]4220
2860 [142]
2870 x[178]21:y[178]2:[141]4480:[153]"subventionsfeld, sie erhalten:"
2880 zz[178]0:[139]sp%(b)[178]6[167]a[178]10:x1[178]16:x2[178]21:[137]2910
2890 [139]sp%(b)[178]11[167]a[178]5:x1[178]20:x2[178]25:[137]2910
2900 a[178]10:x1[178]12:x2[178]17
2910 [129]y[178]1[164]4:[129]x[178]1[164]5
2920 [139]bi%(x,y)[178]b[175]ko%(x,y)[177]x1[175]ko%(x,y)[179]x2[167]zz[178]zz[170]kw%(ko%(x,y))
2930 [130]x,y:zz[178]zz[172]a:do(b)[178]do(b)[170]zz
2940 x[178]23:y[178]2:[141]2250:[141]4480:[139]zz[177]0[167][153]zz"dollar.":[142]
2950 [153]"leider nichts.":[142]
2960 x[178]21:y[178]2:[141]4480:[153]"informationsfeld:":zz[178]0
2970 [129]a[178]0[164]24:[139]ek%(a)[178]1[167]zz[178]1
2980 [130]a:[139]zz[178]0[167][129]a[178]0[164]24:ek%(a)[178]1:[130]
2990 zu%[178][187](1)[172]25:[139]ek%(zu%)[178]0[167]2990
3000 ek%(zu%)[178]0:[139]zu%[177]19[167][153]"neue boersennachrichten!"
3010 [139]zu%[177]19[167][141]4430:[158]882:[141]2340:[158]828:[142]
3020 [139]zu%[177]15[175]zu%[179]19[167]3090
3030 [139]zu%[178]19[167]3170
3040 [139]zu%[177]11[175]zu%[179]16[167]3220
3050 [139]zu%[177]7[175]zu%[179]12[167]3340
3060 [139]zu%[177]3[175]zu%[179]8[167]3480
3070 [153]ek$(zu%):[141]4430:[158]882
3080 kp[178]c%(zu%):[137]2780
3090 zz[178]0:[153]ek$(zu%):[141]4430:[158]882
3100 [139]zu%[178]16[167]a[178]16:z[178]21
3110 [139]zu%[178]17[167]a[178]12:z[178]17
3120 [139]zu%[178]18[167]a[178]20:z[178]25
3130 [129]y[178]1[164]4:[129]x[178]1[164]5
3140 [139]bi%(x,y)[178]b[175]ko%(x,y)[177]a[175]ko%(x,y)[179]z[167]zz[178]zz[170]kw%(ko%(x,y))
3150 [130]x,y:zz[178]zz[172]c%(zu%):do(b)[178]do(b)[170]zz:x[178]21:y[178]2:[141]4480
3160 [153]"die kosten daf